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INTRODUCTION 



The PDP-5 and PDP-8 Multianalyzers are designed for very high speed dafa input and display. 
To facilii-ate the use of this equipment, two basic programs have been written, one for single 
parameter analysis and one for two parameter analysis. The specifications and operating in- 
structions for these programs are enclosed. 

The great strength of computer-based analyzer work is that the instrument's operation may be 
tailored to each experiment by simple alteration of the programs. The programs described 
herein are written in modular form to facilitate their alteration. A complete symbolic listing 
and a detailed description of the modular units that comprise each program are included. 

As variations on these programs are written at Digital Equipment Corporation, they will be sent 
out to all users. User alterations are invited for submission to DECUS, the Digital Equipment 
Computer Users Society. Submissions should be addressed to the secretary of the society at 
Digital's address. 
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PROGRAM 1 



ONE DIMENSIONAL DISPLAY AND ANALYSIS 



The purpose of this program is to read in and analyze 1024-channel energy spectra data. The 
data is stored In locations 3000 to 4700 and 5000 to 6777 (octal), while the program is stored 
in locations 0001 to 1467 (octal). 

OPERATION 

The one dimensional pulse height analysis program receives and executes commands from the 
keyboard. These commands start and stop data taking and determine into which data region It 
goes, display the data with markers, allow areas of interest on the display screen to be expanded. 
Integrate between markers, write out data, punch out data, and control background subtraction. 

COMMANDS 

There are eleven legal commands. Three of these commands ("zero," "subtract," "display") 
must be followed by the digit 1 or 2 to identify the appropriate data region. AH commands 
except "expand," "increase lower marker," "decrease upper marker," and "integrate" are 
executed after the receipt of a carriage return {)). All commands may be terminated by either 
striking the rubout key or by typing in a new command. A rubout causes the program to ignore 
anything previously typed on that line, rings the bell, and returns to wait for a command. 
Since the program interrupt is on during the execution of all commands Involving the display, 
the rubout key can be used to terminate the command, or a new command may be typed. All 
illegal commands are Ignored, the bell rings, and the program waits for a legal command. The 
legal commands are: 

NJ Disable the data taking routine. Program control returns to wait for a com- 

mand. When the program is first loaded, the data taking routine is enabled; 
thus, it is suggested that the first command given be an N. 



XJ Enable fhe data taking routine, reset the clock, and return to wait for a 

command. This command should be followed by the display command as 
most commands disable the data taking routine. 

ZdJ Zero the data region specified by the digit d (this digit should be either a 

1 or 2). The data taking routine Is disabled by this command. Control re- 
turns to wait for a command. 

SdJ Subtract data region 2 from data region 1, and leave the result In the data 

region specified by the digit d. The data taking routine is disabled. Control 
returns to wait for a command. 

DdJ Display the data region specified by the digit d with markers at channel 0000 

and at channel 1023. All 1024 channels are displayed with a fourfold Inter- 
leave to reduce flicker. When the C(SR) = 0, the display is 512 counts full 
scale. When the switches are set to 2, full scale is 1024 counts. With the 
switches set to 4, full scale is 2048 counts; with the switches set at 8, 
(001 Op), full scale is 4096 counts. The interrupt Is turned on and if the 
data taking routine is enabled, data is accepted and stored In the region 
being displayed. One of three conditions will stop the data taking process: 
1 . a clock overflow; 

2. a channel overflow; and 

3. the receipt of a keyboard command. The keyboard 
command might be N or any other command which dis- 
ables the data taking routine. 

Clock Overflow - When the clock (see below) has received the maximum 
number of counts, the message "CLOCK FULL" is typed, the data taking 
routine Is disabled, and the display continues. 

Register Overflow - When a channel has received 4096 counts, the channel 
number and the word "FULL" are typed, the data taking routine is disabled, 
and the display continues. 



Dd xxxxj 



Same as DdJ except that the lower marker is specified by the 4-digit deci- 
mal number typed. Note that the format of this command must be as specified. 
The upper marker is at 1023. 



Dd xxxx xxxxJ Same as Dd xxxxJ except that the upper marker is specified by the second 
4-digit decimal number typed. Note that the format of this command must 
be as specified. 

E Expand the area of the display between the markers. Print the factor of 

expansion. This command disables the data taking routine. Note that the 
expanded display is not interleaved, and if the expansion factor is less than 
four, the display will flicker. 



W 



y 



p; 



Ld^ 



Ud^ 



Print out the number of counts in the channels specified by the markers. The 
left-hand column of the printout consists of channel numbers, while the ten 
columns on the right are the number of counts in that channel and the nine 
succeeding channels. 

Punch the data specified by the markers in BIN format. The data taking 
routine is disabled. The display continues. 

Integrate the curve between the markers (including the channel numbers 
represented by the markers) and print (decimal) the result. The data taking 
routine is disabled and the display continues. 

Increase the lower marker by the single digit d. Print out the new value; 
expand and print the expansion factor. The data taking routine is disabled. 

Decrease the upper marker by the single digit d. Print out the new value; 
expand and print the expansion factor. The data taking routine is disabled. 



CLOCK 

The clock sets the ADC flag and the clock flag, which is tested by a SNC instruction. This 
instruction is "skip if not clock." Thus, if the program is being run on a PDP-5 configuration 



not equipped with the clock, 5NC (6701) must be changed to an unconditional skip (7410). 
This is done by changing the register whose tag is ON (absolute address = 0153). The clock 
is a double precision counter which is reset by the command XJ to the values found in the 
registers whose tags are CLCONl and CLCON2 (absolute addresses = 0366, 0367), These 
registers may be changed by the operator of the program to give different counting times. 

PROGRAM DESCRIPTION 

The One Dimensional Display program is written in a somewhat modular form. The routines 
that handle the commands are fairly isolated so that they may be removed or altered. However, 
many of these routines use subroutines such as ORIGIN or PRINTl . These should not be removed 
unless all of the routines that they service are suitably altered. To conserve storage space, 
several of the routines use the same registers. For example, both of the routines SWEEPl and 
INPUT4 use the register PRODCT; therefore, some care must be exercised when trying to change 
parts of the program . 

The handling of the program interrupts deserves special mention. There are two states of the 
interrupt program: 

1 . Accept data from the analog-to-digital converter, and ignore interrupts 

from the teleprinter. 

2. Ignore interrupts from the analog-to-dlgltal converter, and handle inter- 
rupts from the teleprinter. 

The state of the interrupt handling routine is determined by the contents of location 0002, the 
entrance point after the occurrence of an interrupt acknowledge. If the program is set to ignore 
ADC data, location 0002 will contain a jump to a routine that clears the ADC flag and tests 
for either the teleprinter flag or the keyboard flag. When the program is set to accept data, 
location 0002 contains an lOT instruction (6701), skip on not clock. This tests to see if the 
clock caused the Interrupt. If not, the ADC flag and the keyboard flags are tested and handled 
accordingly. 

When interrupts are handled in this fashion, the program interrupt can be on at all times when 
the program is not waiting for a command. In this version of the program, data cannot be 



accepted when the display Is expanded. This Is due to the fact that the expansion factor Is 
printed with the PNTDEC subroutine which uses the interrupt printing routine. If the printing 
of the expansion factor were eliminated, the state of the Interrupt program could be left 
unchanged. 

It is believed that this method of handling the program interrupts is one of the most efficient 
for this type of application. It results in a minimum "dead-time" for the analog-to-digital 
converter. 



READ: 



Page Zero Routines 

Read one character from the keyboard and print the same character. If the 
character is a rubout (377), return to BEGIN (0200). This rings the bell and 
starts the command search over again. If the character typed in is not a 
rubout, the subroutine exists with C(AC)=0 and with the character typed In 
register HOLD! (01 16). Both the keyboard flag and the teleprinter flag are 
cleared. 



PRINTl; 



INTER: 



OTHER: 



CONTIN: 



Prints the contents of the accumulator. Exists with the teleprinter flag 
cleared and with C(AC)=0. 

The entrance point of the program interrupt. If the data taking routine is 
enabled, the first instruction (0002) will be SNC (6701). If the clock flag 
has caused the interrupt, program sequence goes to SETCLK (0020) which 
indexes the clock (double precision) and returns to the Interrupted program 
via CONTIN+1 (0013). If the clock has received the maximum number of 
counts, program sequence goes to CKFULL by way of CLKFUL which is a 
pointer. If the clock flag did not originate the interrupt, the analog-to- 
digital converter flag is tested. If the ADC flag caused the interrupt, 
C(AC) are stored in SAVEAC and the converter is read and reset. The proper 
data region Is determined by adding the contents of SETTING. Sequence 
goes to ADC which increments the appropriate register and returns to the 
interrupted program via CONTIN . If there is an overflow, program sequence 
goes to OVRFLO by means of FULL, which is a pointer. If neither the clock 
nor the ADC flag caused the interrupt, the program jumps to OTHER. 

Clears the teleprinter flag and tests for the keyboard flag. If found, the 
program Jumps to CMMAND by means of RETURN+1 . If not, control returns 
to the interrupted program by means of CONTIN. 

Restores the accumulator from SAVEAC, turns on the program interrupt and 
returns to the program which was Interrupted. 



5ETCLK: 

ADC: 

TTINTR: 



PRNTIR: 



See INTER. 
See INTER. 

Used when the data taking routine is disabled. This is accomplished by 
putting (JMP TTINTR) in location 0002. TTINTR starts by clearing the ADC 
flag and testing for the teleprinter flag. If found, sequence returns to the 
program which originated the type command (TLS). If the interrupt was not 
caused by the teleprinter flag, the keyboard flag is tested by OTHER+1 . 

Is used for printing with the interrupt turned on. It initiates printing (TLS), 
clears the AC and returns to the display program which was last on by means 
of CONTIN. 



BEGIN: 
CMMAND: 



TABLET: 
WRITE: 



REl: 



ENABLE: 



OVRFLO: 



CLCONl 



Page One Routines 
Rings the bell, prints CR, LF, and goes to CMMAND. 

This routine looks for and interprets commands for the program to execute. 
It does this by keeping two tables, one of the commands and one of the 
addresses of the commands. If no legal command is found, control returns 
to BEGIN. 

The table of the addresses of the entrance points for the commands. 

This is the routine that prints the contents of the various channels. It starts 
with a JMS READ which looks for the carriage return that tells It to proceed. 
It then disables the data taking routing by storing the word (JMP TTINTR) in 
location 0002. It picks up the limits for the printout from registers LOMARK 
and HIMARK. GOl prints out this channel number, and G02 prints out the 
contents of that channel and the nine succeeding ones. The routine termi- 
nates when the contents of the last channel have been printed. The sequence 
then proceeds to REl . All printing In this routine is done by using the routine 
PNTDEC which is a binary-to-decimal conversion and printout. This uses 
the program interrupt. PNTDEC first must be set to convert 4 decimal digits. 
This is done by the Instructions preceding GOl . 

Prints a carriage return and a line feed using the program interrupt. Sequence 
remains in the main display loop. 

Accepts a carriage return, puts the instruction SNC in location 0002, resets 
the clock, prints a line feed, and returns to CMMAND. 

Sequence goes here when a register has overflowed. This routine disables 
the data taking routine, computes the channel number that overflowed, 
prints it, and goes to PRFULL which prints the word FULL. 

This is the low order word to which the clock Is reset. This may be varied 
by the operator with the deposit key. 
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CLCON2: This is the high order word to which the clock is reset. This may be varied 

by the operator with the deposit key. 

CLCON1 and CLCON2 are set to the double precision complement of the number of clock 
pulses to be accepted. 



SWEEP! 

SCALE: 
MARK: 
LOWER: 



UPPER: 



PMARK: 



Page Two Routines 

This is the beginning of the major display loop. This loop has several param- 
eters which change depending on the t/pe of display that is shown. 

This closed routine puts scole markers on the display. 

This routine puts the vertical markers on the display. 

This routine is entered when the command Ld is interpreted by CMMAND. 
It reads the digit d, adds it to the current value of the lower marker and 
goes to PMARK. 

This routine is entered when the command Ud is interpreted by CMMAND. 
It reads the digit d, subtracts it from the current value of the upper marker, 
and goes to PMARK. 

This is used by both UPPER and LOWER to print the current value of the 
marker and return control to EXPAND. 
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CLDATA: 



Page Three Routines 

This routine goes to ORIGIN which determines the appropriate data region 
by setting the contents of the register SETTING to either 3000 or 5000. This 
routine then clears 2000. registers starting at the location specified by 
SETTING. 



PNTDEC: 



ADD: 
SBTRCT: 



INTEG: 



This routine converts binary numbers to decimal and prints the results using 
the program interrupt. It first must be set to convert either double precision 
numbers (for the INTEG routine) or single precision. 



A routine used by PNTDEC. It is basically a double precision additi 



on. 



This routine is entered when the command S is Interpreted. It goes to 
ORIGIN and then subtracts data region 2 from data region 1, leaving the 
result in the region specified by the contents of SETTING. Note that if the 
difference is negative, it is set to 0000. 

This routine is entered when the command I is Interpreted. It adds the con- 
tents of the registers specified by the contents of LOMARK and HIMARK 
(the markers) and then prints out the total . Note that this is a double pre- 
cision operation. PNTDEC is set for double precision. The integration 
includes the markers. 



n 



DSPLAY: 



INPUT4: 



Page Four Routines 

This is the routine that is entered when the command D is interpreted. It 
first sets the markers to 0000 and 1023 and then accepts the origin setting 
from ORIGIN. If the next character is aj, control proceeds; if not, con- 
trol transfers to INPUT4 which reads in a 4-digit decimal number and stores 
it in LOMARK. If the next character is a CR, control proceeds, if not, 
the next 4-digit decimal number is read in and stored in HIMARK. An LF 
is printed, and the parameters are set for the display SWEEPl . These param- 
eters consist of the interleaving factors (INLEAV, XCONST, YCONST, 
COUNTS), the marker and scale factors, (MASKX, DSPLCE, MINLO, 
MINHI), and the address of the first point to be displayed (YORG). 

Reads four decimal digits and converts them to a binary word which is in 
the AC when the routine exits. 



PRFULL: 
CKFULL: 
LEADIN: 
ORIGIN: 



Prints the word "FULL." 

Disables the data taking routine and prints the words "CLOCK FULL." 

Punches leader-trailer code for the punch routine. 

Reads in one digit. If the digit is a 1 , it exits with the contents of 
SETTING = 3000. If the digit is a 2, it exits with the contents of SETTING 
= 5000. 



DSABLE: 



Disables the data taking routine. 
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Page Ffve Routines 

EXPAND: This routine expands the display when requested either by the command E or 

by either of the commands U, L. It operates by taking the difference be- 
tween the markers and multiplying by 2 until the number of points is greater 
than 1024. The routine then expands the distance between the scale markers, 
recenters the display, displaces the scale markers if necessary, sets all of 
the operating parameters of the routine DSPLAY, prints the expansion factor, 
and then goes to DSPLAY. The data taking routine is disabled. 

SHIFT: This changes all of the operating parameters for the SWEEPl routine. It is 

a part of the EXPAND routine. 

STOP: When shifting has gone far enough, sequence goes to STOP which sets all 

the parameters for the display, calls PNTDEC to print the expansion factor, 
and goes to SWEEPl . 
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PUNCH: 



BINPCH: 



CHECK: 



MEANSD: 



Page Six Routines 

Turns off the dafa taking routine and punches, in binary format, the contents 
of the specified areas of the data region. PUNCH calls the routine LEADIN 
to punch leader-trailer, BINPCH to punch the 12-bit word. 

Punch the 12-bit word in the AC in binary format. This subroutine calls 
CHECK. 

Computes the checksum which is the last thing punched on the tape before 
the trailer code is punched. 

This is an expandable command. Sequence transfers here when the key "M" 
is struck. At the present, it causes an error indication; however, any routine 
could be inserted here. 
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ONE DIMENSIONAL DISPLAY PROGRAM LISTING 



ORGH 1 
inter: 



SWEEPl 
SNC 



CONTIN: 



INDEXi: 
INDEX2: 
INDFXS: 
SETCLK: 



other: 



read: 



ADC: 



JMP 

ASF 

JMP 

DCA 

ARR 

TAD 

JMP 

TAD 

ION 

JMP 







ACF 

IS2 

JMP 

ISZ 

JMP 

JMP 

TCF 

KSF 

SKP 

JMP 

JMP 



CLA 

KSF 

JMP 

KRB 

TLS 

TSF 

JMP 

TCF 

DCA 

TAD 

TAD 

SNA 

JMP 

JMP 

DCA 

ISZ 

JMP 

JMP 



SETCLK 

OTHER 
SAVEAC 

SETTNG 

ADC 

SAVEAC 

^1 



CLOCKl 

COnTIN+1 

CL0CK2 

CONTlN+1 

laCLKFUL 



eiRETURN + l 
CONTIN+1 



*-l 



HOLDl 
HOLDl 
MRROUT 
:CLA 
i^ERROR 
^REAO 
HGLD2 
i«'H0LD2 
CONTIN 
PFULL 



PRINTl 


: 




TLS 




TSF 




JMP ^^-1 




TCF 




CLA 




JMP laPRINTl 


MIN10: 


7770 


MIN20: 


7760 


equal: 


2 75 


ZERO: 


260 


space: 


240 


LNFEFD 


■ 0212 


CARRTN 


0215 


PE: 


0305 


skip: 


741^ 


M4HUN: 


7400 


MITHOU 


: 7000 


M2TH0U 


: 6000 


PITHOU 


: 1000 


P2TH0U 


: 2000 


P3TH0U 


: 3000 


MINUS4 


7774 


MRBOUT 


: 7401 


PLUS4: 


0004 


MASK15 


: 0017 


MASK63 


: 0077 


MASKX: 





MINHI : 





MINLO: 





LOMARK' 





HIMARK 





HOLDi: 





H0LD2: 





HIGH: 





low: 





COUNTl. 





C0UNT2 





C0UNT3 





C0UNT4 





COUNTS 





C0UNT6 





COUNT? 





COUNTS 




SETTNG 






15 



ONE DIMENSIONAL DISPLAY PROGRAM LISTING (continued) 



C0NST6 
C0NST7 
C0NST8 
INLEAV 

pRoncT 

YCONST 

YORG: 

XCONST 

XAXIS: 

DSPLCE 

SAVEAC 

CLOCKl 

CL0nK2 

CLKFUL 

A0RSC6 

ADRSC7 

on: 

off: 

error: 

EXPPT: 

full: 

RESUME 

OUTPUT 

ORGPT: 

RETURN 



PRNTIR 



TTINTR: 





























CKFULL 

TABLE3+7 

TARLF3-1 

SNC 

JMP TTINTR 

BEGIN 

EXPAND 

OVRFLO 

REl 

PNTDEC 

ORIGIN 

CMMAND-2 

CMMAND 



TLS 

CLA 

JMP CONTIN 
ACF 
TSF 
JMP OTHER+1 

DCA SAVEAC 

TCF 

JMP PPRNTIR 



ORG 200 

begin: KCC 

TCF 

TAD B 

JMS P 

TAD 

JMS 

TAD 

JMS 

CMMAND: JMS 
TAD 
DCA 
TAD 
DCA C 
TAD 
DCA 
TAD 
TAD 
SNA 
JMP 
ISZ 
ISZ 
JMP 
JMP 
TAD 
DCA 
JMP 

ADRSC3: TAB 

TABLE?: 747 
776 
776 
000 
000 
001 
776 
001 
776 
001 
777 
0011 



ELL 

RINTI 
CARRTN 
PRINTl 

LNFEED 
PRINTl 
READ 
ADRSC3 
INDEX3 
TABLE2+2 
OUNTl 
ADRSCl 
H0LD2 
HOLOl 
eilNOEXS 

.+5 

H0LD2 

COUNTl 

.-5 

BEGIN 

C<i)H0LD2 

H0LD2 

^H0L02 

LE2-1 

4 

6 

4 

3 

7 

3 

2 

2 

1 

3 
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ONE DIMENSIONAL DISPLAY PROGRAM LISTING (continued) 



BELL: 0207 


AnRSCi: TABLEl 


TABLEi: DSPLAY 


DSABLE 


CLDATA 


WRITE 


PUNCH 


EXPAND 


SBTRCT 


INTEG 


ENABLE 


MEANSD 


UPPER 


LOWER 


^RITE: JMS 


READ 


TAD 


DEF 


DCA 


INTER 


TAD 


LOMARK 


DCA 


C0UNT5 


TAD 


LNFEED 


JMS 


PRNTIR 


TAD 


HIMARK 


CMA 


: lAC 


DCA 


C0UNT6 


TAD 


MINUS4 


DCA 


C0NST6 


TAD 


ADRSC6 


DCA 


CONST? 


DCA 


HIGH 


;0i: TAD 


TABLE2+1 


DCA 


COUNT? 


TAD 


C0UNT5 


DCA 


LOW 


JMS 


e>OUTPUT 


;02: TAD 


C0UNT5 


TAD 


SETTNG 


DCA 


LOW 


TAD 


SSLOW 


DCA 


LOW 


JMS 


^OUTPUT 


TAD 


C0UNT6 


TAD 


C0UNT5 


SNA! 


CLA 


JMP 


REl 


ISl 


C0UNT5 


ISZ 


COUNT? 


JMP 


G02 


TAD 


CARRTN 


JMS 


PRNTIR 


TAD 


LNFEED 


JMS 


PRNTIR 


JMP 


GOl 



REi: 


Tad caRRTn 




JMS PRNTIR 




TAD LNFEED 




JMS PRNTIR 




JMP CONTIN 


enable: 


JMS READ 




TAD ON 




DCA INTER 




TAD CLCONl 




DCA CLOCKl 




TAD CLC0N2 




DCA CL0CK2 




JMP €i)RETURN 


OVRFLO: 


TAD OFF 




DCA INTER 




TAD SETTNG 




cma: iac 




TAD H0LD2 




DCA LOW 




DCA HIGH 




TAD MINUS4 




DCA C0NST6 




TAD ADRSC6 




DCA CONST? 




JMS giOUTPUT 




JMP P.+l 




PRFULL 


CLCONl: 





CLC0N2: 
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ONE DIMENSIONAL DISPLAY PROGRAM LISTING (continued) 



ORG 400 
SWEEPi: 



SWEEP2 



TAD SKIP 

DCA SWIT5 

ION 

TAD SKIP3 

DCA SWIT6 

TAD MITHOU 

DCA SWIT3 

CLA50SR 

CLLIRTR 

SNL 

JMP .+5 
CLA 

TAD SKIP 
DCA SWIT3 
JMP .+15 
PAR 
SNL 

JMP .+5 
CLA 

TAD MITHOU 
DCA SWIT5 
JMP .+6 
RAR 

SNLICLA 
JMP .+3 
TAD MITHOU 
DCA SWIT6 
DCA C0UNT3 
TAD C0NST8 
DCA COUNTl 
TAD INLEAV 
DCA C0UNT2 
TAD YORG 
TAD C0UNT3 
DCA PROOCT 
TAD C0UNT3 
DCA XAXIS 



SWEEP3: 



SWIT3 

SWIT5: 

SWIT6: 

SWIT4; 



TAD XAXIS 
DXL 
TAD DSPLCE 
AND MASKX 
SNAICLA 



JMP 
TAD 
TAD 
SNA 
JMP 
TAD 



SCALE 
XAXIS 
MINLO 



MARK-3 
MINHI 

SNA! CLA 

JMP MARK-3 
SKIP 
SWIT4 



TAD 

DCA 

DYS 

TAD 

TAD 

DCA 

TAD 

NOP 

CLLIRAL 

SKP 

CLL!RTR 

JMP .+3 

RAR 

CLL!RTR 

DYS 

SKP 

JMP 

CLA 

TAD 

TAD 

DCA 

ISZ 

JMP 

ISZ 

ISZ 

JMP 

JMP 



XAXIS 
XCONST 
XAXIS 
esPROOCT 



MARK 

PRODCT 
YCONST 
PROOCT 
C0UNT2 
SWEEP3 
C0UNT3 
COUNTl 
SWEEP2 
SWEEPl 



SKIP3: 



JMP SWIT4-1 
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ONE DIMENSIONAL DISPLAY PROGRAM LISTING (conHnued) 



SCALP : CLL!IAC 
RTL 
DYS 
RTL 
DYS 
CLA 

JMP SWEEP3+6 
TAD MITHOU 
DCA SWIT4 
JMP SWIT3-5 
mark: CLA 

TAD P2TH0U 
CLL 

TAD MIN20 
SNL 

JMP SWIT4+2 
DYS 

JMP .-5 
lower: JMS READ 
TAD HOLDl 
AND MASK15 
TAD LOMARK 
DCA LOMARK 
TAD LOMARK 
JMP PMARK 
upper: JMS READ 
TAD HOLOl 
AND MASK15 
CMA! lAC 
TAD HIMARK 
OCA HIMARK 
TAD HIMARK 
PMARK: DCA LOW 
DCA HIGH 
TAD OFF 
DCA INTER 
TAD MINUS4 
DCA C0NST6 
TAD ADRSC6 
DCA CONST? 
TAD EQUAL 
JMS PRNTIR 
JMS (?>OUTPUT 
TAD CARRTN 
JMS PRNTIR 
TAD LNFEEO 
JMS PRNTIR 
TAD PE 
JMS PRNTIR 
JMP eiiEXPPT 



ORG 600 

CLDATA: JMS laORGPT 
JMS READ 
CMA 

TAD SETTNG 
DCA INDEXl 
TAD OFF 
DCA INTER 
TAD M2TH0U 
DCA COUNTl 
DCA P'lNDEXl 
ISZ COUNTl 
JMP .-2 
JMP piRETURN 

PNTDEC: 

TAD C0NST6 
DCA COUNTS 
TAD C0NST7 
DCA INDEX? 
TAD e>INDEX2 
DCA HSUB 
TAD ^INDEX2 
DCA LSU8 
DCA CHRCTR 
JMS ADO 
TAD CHRCTR 
TAD ZERO 
JMS PRNTIR 
ISZ COUNTS 
JMP .-12 
TAD MINUS4 
lAC 

OCA COUNTS 
ISZ COUNTS 
SKP 

JMP e>PNTOEC 
TAD SPACE 
JMS PRNTIR 
JMP .-5 
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ONE DIMENSIONAL DISPLAY PROGRAM LISTING (continued) 



ADD 



HSUB: 

LSUB: 

tempi: 

CHRCTR; 

TABLE3: 





CLL 

TAD 

TAD 

DCA 

RAL 

TAD 

TAD 

SNL 

JMP 

DCA 

TAD 

DCA 

ISZ 

JMP 

CLA 

JMP 









3166 

4600 

7413 

6700 

7747 

4540 

7775 

4360 

7777 

6030 

7777 

7634 

7777 

7766 

7777 

7777 



SBTRCT 



LOW 

LSUB 

TEMPL 

HIGH 
HSUB 

.+6 

HIGH 
TEMPL 
LOW 

CHRCTR 
AOD + 1 

laADD 



JMS 
CMA 
TAD 
DCA 
CMA 
TAD 
DCA 
TAD 
DCA 
TAD 
CMA 
DCA 
JMS 
TAD 
DCA 
CLL 
TAD 
CMA 
TAD 
SNL 
CLA 



PORGPT 

SETTNG 
INDEXl 

P3TH0U 

INDEX2 

OFF 

INTER 

P3TH0U 

INDEX3 
READ 
M2TH0U 
COUNTl 

eiINiDEX3 

lAC 

i?'INDEX2 
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ONE DIMENSIONAL DISPLAY PROGRAM LISTING (continued) 



integ: 



DCA 
IS? 
JMP 
JMP 
TAD 
DCA 
CMA 
TAD 
TAD 
DCA 
DCA 
TAD 
JMS 
TAD 
CMA 
TAD 
DCA 
CLL 
TAD 
SZL 
ISZ 
ISZ 
JMP 
DCA 
TAD 
DCA 
TAD 
DCA 
JMS 
JMP 



@INDEX1 

COUNTl 

.-10 

^RETURN 

OFF 

INTER 

SETTNG 

LOMARK 

INDEX2 

HIGH 

EQUAL 

PRNTIR 

HIMARK 

LOMARK 
COUNTS 

@INDEX2 

HIGH 

COUNTS 

.-5 

LOW 

MIN10 

C0NST6 

ADRSC7 

C0NST7 

PNTOEC 

PRESUME 



ORG 1000 



OSPLAY: TAD 


ADRSC2 


DCA 


COUNT? 


DCA 


e)C0UNT2 


ISZ 


COUNT? 


TAD 


M2TH0U 


CMA 




DCA 


©COUNT? 


TAD 


A0RSC2 


DCA 


COUNT? 


JMS 


(jSORGPT 


JMS 


READ 


TAD 


HOLDl 


TAD 


MINCR 


sna: 


!CLA 


JMP 


.+5 


JMS 


INPUT4 


DCA 


©COUNT? 


ISZ 


COUNT? 


JMP 


.-10 


TAD 


LNFEED 


JMS 


PRINTl 


TAD 


PLUS4 


DCA 


XCONST 


TAD 


SETTNG 


DCA 


YORG 


TAD 


PLUS4 


DCA 


YCONST 


TAD 


LOMARK 


cma; 


lAC 


DCA 


MINLQ 


TAD 


HIMARK 


cma: 


lAC 


TAD 


LOMARK 


DCA 


MINHI 


TAD 


M4HUN 


DCA 


INLEAV 


TAD 


MINUS4 


DCA 


CONSTB 


TAD 


MASK63 


DCA 


MASKX 


DCA 


DSPLCE 


JMP 


©DSPLPT 


ADRSC2: 


LOMARK 


MINCK: 756.1 


i 


DSPLPT: SWE'EPl 
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ONE DIMENSIONAL DISPLAY PROGRAM LISTING (continued) 



INPUT4 



prfull: 



ckfull; 



TABLC6: 





TAD 

OCA 

DCA 

JMS 

TAD 

AND 

TAD 

IS^ 

SKP 

JMP 

CLL 

DCA 

TAD 

RTL 

TAD 

OCA 

JMP 



MINUS4 

COUNTl 

PROOCT 

READ 

HOLDl 

MASK15 

PROOCT 

COUNTl 

PINPUT4 

;ral 

PRODCT 
PROOCT 

PROOCT 
PRODCT 
INPUT4t4 
A0RSC4 



LEADIN 



TAD 
DCA 



JMP 
OCA 
TAD 
OCA 
IAD 
OCA 
TAQ 
SNA 
JMP 
JMS 
JMP 
JMP 



.♦6 

SAVEAC 

OFF 

INTER 

ADRSC5 

INDEX? 

«i'IN0EX2 

PRNTig 

.-4 
PRESUME 



A0RSC4: 
A0RSC5: 



0303 

0314 

0317 

0303 

0313 

0240 

0306 

0325 

0314 

0314 

0215 

021? 

0000 

TABLE6+4 

TABLE6-1 



COD200; 





TAD COD200 
cma: IAC 
DCA C0UNT6 
TAD COD200 
JMS PRNTIR 
IS2 C0UNT6 
JMP .-3 
JMP esLEADIN 
0200 



origin: 

JMS READ 
TAD HOLDl 
AND MASK15 
CLLIRAR 
SNLICLA 
UC 

rtr 

tad pithou 

dca settng 

JMP 6i>0RlGIN 

OSABLE: JMS READ 

TAD OFF 

DCA INTER 

JMP ^RETURN 
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ONE DIMENSIONAL DISPLAY PROGRAM LISTING (continued) 



ORG 1200 

expand: tad MASK63 
DCA MASKX 
TAD M2TH0U 
DCA INLEAV 
CLA! lAC 
DCA XCONST 
TAD LOMARK 
CMA! lAC 
TAD HIMARK 
SMA 

JMP .+11 
CLA 

TAD LOMARK 
DCA HOLOl 
TAD HIMARK 
DCA LOMARK 
TAD HOLOl 
DCA HIMARK 
JMP .-14 
OCA MINHI 
TAD MASKX 
CMA 

DCA DSPLGE 
TAD LOMARK 
SNA 

JMP .+5 
TAD DSPLCE 
SMA 
JMP .'2 

cma: IAC 

DCA DSPLCE 
TAD MINHI 
IAC 

CLLIRAR 
S2L 
IAC 

CLLJRAL 
DCA HOLDl 
TAD HOLDl 
DCA YCONST 
SHIFT: TAD YCONST 
CLLIPAL 
DCA TEMP 
TAD TEMP 
TAD M2TH0U 
SMA! CLA 
JMP STOP 
TAD TEMP 
DCA YCONST 
TAD XCONST 
CLLIRAL 



DCA XCONST 
TAD MASKX 
CLL!CML 
RAL 

DCA MASKX 
TAD INLEAV 
CLLICML 
RAR 

DCA INLEAV 
TAD MINHI 
CLLIRAL 
DCA MINHI 
TAD DSPLCE 
CLL!RAL 
DCA DSPLCE 
JMP SHIFT 
stop: CMA 

DCA C0NST8 
TAD INLEAV 
TAD HOLDl 

cll:cml 

RAR 

TAD LOMARK 
TAD SETTNG 
DCA YORG 
TAD M2TH0U 
TAD YCONST 
CLLICML 
RAR 

DCA MINLO 
TAD. MINHI 
CMA I IAC 
DCA MINHI 
TAD DSPLCE 
CMAI IAC 
TAD MINLO 
DCA DSPLCE 
IAC 

DCA YCONST 
TAD MINUS4 
DCA C0NST6 
TAD ADRSC6 
DCA CONST? 
TAD XCONST 
DCA LOW 
DCA HIGH 
TAD OFF 
DCA INTER 
JMS (^OUTPUT 
JMP PRESUME 
temp: 
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ONE DIMENSIONAL DISPLAY PROGRAM LISTING (continued) 



ORG 1400 
PUNCH 



JMS READ 

TAD OFF 

DCA INTER 

TAD LNFEED 

JMS PRNTIR 

JMS e>LEADER 

TAD LOMARK 

TAD SETTNG 

DCA C0UNT5 

TAD HIMARK 

TAD SETTNG 

CMA! lAC 

DCA C0UNT6 

DCA LOW 

TAD C0UNT5 

CLLICML 

JMS BINPCH 

TAD e>C0UNT5 

CLL 

JMS 

TAO 

TAD 

SNA 

JMP 

ISZ 

JMP 

CLL 

TAD 

JMS 

JMS 

JMP 



BINPCH 
C0UNT5 
C0UNT6 
rCLA 
.+3 

C0UNT5 
.-10 

LOW 

BINPCH 
C<^LEADER 
PRESUME 



BINPCH: 



MASK6 
MASK7 
CHECK 



MEANSD 



END 



DCA COUNTS 

TAD COUNTS 

RTR 

RTR 

RTR 

AND MASK7 

JMS CHECK 

JMS PRNTIR 

TAD COUNTS 

AND MASK6 

JMS CHECK 

JMS PRNTIR 

JMP PBINPCH 

0077 

0177 



DCA C0UNT7 

TAD C0UNT7 

TAD LOW 

DCA LOW 

TAD C0UNT7 

JMP C«>CHECK 

JMP C^ERROR 



LEADER: LEADIN 
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PROGRAM 2 



MULTIPARAMETER DISPLAY AND ANALYSIS 



The purpose of this program is to input and display two-parameter energy and spectra data. 
The data is stored in locations 1432 to 7631 (octal), while the program is stored In locations 
0001 to 1430 (octal). 

OPERATION 

The multiparameter pulse height analysis program receives and executes commands from the 
keyboard. These commands start and stop data taking, control the displays, and control writing 
and punching of the data. The Multiparameter Display Program is completely flexible with 
respect to matrix shape. The only requirement is that the size (i.e. the total number of elements 
in the matrix) be less than 6200o (3200, |^). 

COMMANDS 

There are 13 legal commands. All commands except for "write," "increase vertical marker," 
and "increase horizontal marker," are executed after the receipt of a carriage return. A rubout 
causes the program to ignore anything previously typed on that line, rings the bell, and returns 
to wait for a legal command. The rubout key can be used to terminate any command, or a new 
command may be typed. All illegal commands are ignored, the bell rings, and the program 
waits for a legal command. 



Command 



Interrupt 



Data Taking 
Routine 



Comment 



N. 



OFF 



DISABLED 



DISABLE the DATA TAKING 
routine. Program control returns 
to wait for a command. 
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Command Interrupt 



Data Taking 
Routine 



Comment 



XJ 



OFF 



ENABLED 



y 



ON 



UNCHANGED 



ON 



UNCHANGED 



OFF 



UNCHANGED 



ENABLE the DATA TAKING routine, reset 
the clock, and return to wait for a com- 
mand. Actual data taking begins with the 
next command that turns on the program 
interrupt. 

This command displays the ISOMETRIC of 
the data. If the data taking routine is 
enabled, data will be accepted after the 
receipt of the carriage return. Full scale 
Is 4096 counts when C(SR)7^0. When 
C(SR) = 0, full scale is 1024 counts. If the 
scope is equipped with the intensity option, 
the isometric display will be marked as 
specified by the three marker commands. 

This command causes the data coming in to 
be displayed (TWINKLE BOX) in a 64 x 64 
matrix, or in any other size specified by 
the operator (see program description). 
This allows visual Integration of the nature 
of the data. Only those words whose value 
is less than the highest acceptable size ore 
added into the data region. All others are 
rejected; however, they are displayed in 
the "twinkle" display. (Note: the data 
taking rate Is considerably slower with this 
display than It is with the others. It is use- 
ful for aligning detectors, etc.) 

ZERO the data region after the receipt of 
the carriage return. Control returns to wait 
for the next command. 



C xxxx xxxx^ 



ON 



UNCHANGED 



This is the DIFFERENTIAL CONTOUR dis- 
play with the lower cutoff level specified 
by the first 4-dIgit decimal number and 
with the higher cutoff level specified by 
the second 4-dIgit decimal number. This 
will display the data matrix, intensifying 
only those points having more counts than 
the lower level, and fewer counts than the 
upper level (i.e. those points for which 
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Command Inferrupt 



Data Taking 
Routine 



Comment 



C xxxxj 



ON 



UNCHANGED 



9 



M XX 



=; 



M XX XX 



^; 



ON 



OFF 



OFF 



UNCHANGED 



UNCHANGED 



UNCHANGED 



H 



ON 



UNCHANGED 



V 



SH^ 



ON 



ON 



UNCHANGED 
UNCHANGED 



LOW LEVEL < COUNT < HIGH LEVEL). 
The contour displays can have markers on 
them as specified by the MARK, change 
HORIZONTAL, and change VERTICAL 
commands. 

This is the INTEGRAL CONTOUR display 
with the lower cutoff level specified by 
the 4-digit decimal number. The upper 
cutoff level is unchanged. This will dis- 
play the data matrix, intensifying only those 
points which have more counts than the 
specified cutoff level (i.e. those points for 
which LOW LEVEL < COUNT < HIGH 
LEVEL). 

Returns display to CONTOUR. It does not 
change the cutoff levels set by previous 
contour commands. 

Set the HORIZONTAL MARKER as specified 
by the 2-digit decimal number. Program 
control returns to wait for a command. 

Set the HORIZONTAL MARKER as specified 
by the first 2-digit decimal number, and 
set the VERTICAL MARKER as specified by 
the second 2-digit decimal number. Pro- 
gram control returns to wait for a command. 

Increase the HORIZONTAL MARKER by 
one. This will change the markers on the 
isometric and contour displays, and will 
change the slice under observation. 

Same as H except that it affects the 
VERTICAL MARKER. 

SLICE HORIZONTAL. The slice is taken 
along the horizontal marker. This command 
used in conjunction with the "H" command 
allows successive cross sections of the data 
matrix to be examined. 
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Command 



Interrupt 



Data Taking 
Routine 



Comment 



s\y 

Wd 



ON 



ON 



ON 



UNCHANGED 



DISABLED 



DISABLED 



RJ 



OFF 



UNCHANGED 



SLICE VERTICAL. The slice Is taken along 
the vertical marker. 

PUNCH the entire data region in binary 
format. The display that was on when the 
command was received remains on. 

WRITE SLICES of the data region. The most 
recent slice command determines whether 
horizontal or vertical slices are to be writ- 
ten. The single digit d determines the 
number of successive slices to be printed. 
If d is a 0, ten slices are printed. The 
first slice is displayed on the scope during 
the execution of this command. Printout 
includes the coordinates of the number of 
counts. (See Sample Output on the follow- 
ing page.) 

REVERSE the axes. Does not reverse the 
axes on the twinkle display, but does on 
all others. Markers are horizontal or verti- 
cal with respect to the scope, not with 
respect to the orientation of the data matrix. 
Program control returns to wait for a com- 
mand. Current orientation can be deter- 
mined by giving a write command, as print 
format Includes the coordinates of the 
points. This command allows areas of the 
isometric display to be seen that were pre- 
viously obscured. 
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wo 



M=0026. 0027* 0028> 0029* 0030* 0031* 0032* 0033* 0034* 0035 



F= 
0000 


0421 


0563 


0792 


0929 


0668 


0373 


0161 


0099 


00 87 


0106 


0001 


0119 


0233 


0409 


0510 


0444 


0181 


0090 


0039 


0036 


0029 


0002 


0173 


0385 


0794 


1122 


0909 


0479 


0181 


0075 


0053 


0044 


0003 


0147 


0389 


0762 


1061 


0939 


0449 


0165 


0056 


0035 


0023 


0004 


0149 


0346 


0728 


1089 


0901 


0469 


0159 


0055 


0027 


0015 


0005 


0162 


0338 


0831 


1116 


0907 


0503 


0137 


0049 


0022 


0013 


0006 


0134 


0354 


0822 


1186 


0976 


0498 


0160 


0042 


0025 


0014 


0007 


0176 


0380 


0785 


1156 


1043 


0536 


0171 


0055 


002 1 


0017 


0008 


0143 


0369 


0839 


1251 


1046 


0500 


0141 


0050 


0026 


0018 


0009 


0149 


0386 


0905 


1328 


1036 


0555 


0201 


0060 


0034 


0009 


0010 


0176 


0478 


0905 


1442 


1179 


0648 


0203 


0070 


0027 


0023 


0011 


0186 


0431 


0929 


1382 


1251 


0647 


0213 


0064 


0030 


0028 


0012 


0173 


0423 


0956 


1405 


1131 


0642 


0213 


0061 


0017 


0020 


0013 


0170 


0341 


0860 


1 179 


1072 


0570 


0170 


0061 


0034 


0019 


0014 


0159 


0339 


0781 


1 101 


0992 


0523 


0182 


0048 


0022 


0014 


0015 


0148 


0351 


0705 


1078 


0907 


0447 


0166 


0049 


0021 


0015 


0016 


01 11 


0347 


0684 


1060 


0879 


0505 


0161 


0049 


0013 


0014 


0017 


0143 


0333 


0667 


1091 


0845 


0497 


0131 


0043 


0018 


0009 


0015 


0167 


0311 


0692 


1052 


0898 


0464 


0153 


0039 


0007 


0012 


0019 


0108 


0310 


0687 


1035 


0872 


0446 


0146 


0038 


0021 


0012 


0020 


0105 


0272 


0584 


0905 


0747 


0369 


0118 


0041 


0014 


0013 


0021 


0079 


0230 


0407 


0616 


0531 


0251 


0081 


0030 


0013 


0008 


0022 


0049 


0133 


0279 


0425 


0373 


0179 


0064 


0018 


0010 


0009 


0023 


0034 


0098 


0188 


0291 


0245 


0108 


0040 


0012 


0006 


0006 


0024 


0035 


0085 


0148 


0232 


0186 


0101 


0029 


0011 


0011 


0007 


0025 


0041 


0085 


0170 


0228 


0212 


0113 


0035 


0011 


0003 


0006 


0026 


0041 


0135 


0240 


0352 


0306 


0159 


0041 


0018 


0005 


0002 


0027 


0078 


0201 


0421 


0621 


0509 


0297 


0105 


0029 


0011 


O0O7 


0028 


0185 


0440 


0820 


1202 


1081 


0560 


0175 


0048 


0023 


0014 


0029 


0285 


0690 


1562 


2193 


1954 


0956 


0354 


0089 


0019 


0022 


0030 


0442 


1037 


2306 


3199 


2879 


1411 


0461 


0143 


0054 


0019 


0031 


0528 


1204 


2527 


3656 


3316 


1710 


0547 


0165 


0059 


0015 


0032 


0365 


0985 


2056 


2872 


2521 


1347 


0392 


0105 


0043 


0024 


0033 


0227 


0554 


1123 


1632 


1333 


0761 


0245 


0075 


0010 


0012 


0034 


0104 


0220 


0485 


^ 0685 


0609 


0302 


00 86 


0024 


00Q7 


0007 


0035 


0035 


0096 


0191 


0253 


0242 


0124 


0044 


0006 


0006 


0001 


0036 


0013 


0043 


0084 


0121 


0087 


0050 


00,14 


0008 


0001 , 


0005 


0037 


0009 


0015 


0034 


0056 


0038 


0024 


0010 


0007 


0001 


0001 


0038 


0009 


0012 


0022 


0037 


0037 


0015 


0010 


0001 


0000 


0003 


0039 


0007 


0012 


0027 


0038 


0026 


0015 


0002 


0001 


0002 


0000 


0040 


0003 


0015 


0017 


0029 


0033 


0010 


0002 


0005 


0003 


0003 


0041 


0005 


0009 


0024 


0029 


0020 


0019 


0009 


0002 


0000 


0002 


0042 


0002 


0009 


0020 


0031 


0022 


0009 


0008 


0001 


0000 


0001 


0043 


0007 


0014 


0021 


0031 


0027 


0010 


0003 


0002 


0003 


0000 


0044 


0006 


0009 


0027 


0014 


0029 


0010 


0006 


0002 


0000 


0001 


0045 


0002 


0010 


0014 


0034 


0025 


0007 


0004 


0000 


0001 


0000 


0046 


0002 


0010 


0017 


0024 


0026 


0008 


0006 


0002 


0002 


0001 


0047 


0005 


0010 


0020 


0025 


0021 


0006 


0004 


0003 


0000 


0001 


0048 


0005 


0010 


0021 


0021 


0020 


0007 


0002 


0000 


0000 


0001 


0049 


0007 


0004 


0017 


0017 


0025 


0009 


0005 


0000 


0000 


0001 


0050 


0005 


0008 


0019 


0O19 


0016 


0006 


0002 


0002 


0001 


0000 


0051 


0004 


0007 


0019 


0014 


0021 


0007 


0003 


0002 


0000 


0000 


0052 


0003 


0008 


0014 


0030 


0022 


0005 


0003 


0001 


0001 


OOOO 


0053 


0001 


0005 


0011 


0014 


0017 


0007 


0003 


0001 


0000 


0001 


0054 


0003 


0008 


0012 


0026 


0021 


0017 


0006 


0000 


0000 


0001 


0055 


0004 


0011 


0019 


0023 


0012 


0008 


0002 


0001 


0000 


0000 


0056 


0003 


0009 


0012 


0019 


0022 


0009 


0004 


0002 


0003 


0002 


0057 


0001 


0004 


0015 


0022 


0022 


0010 


0003 


0001 


0000 


0001 


0058 


0004 


0004 


0010 


0032 


0013 


0010 


0007 


0001 


0000 


0002 


0059 


0002 


0014 


0012 


0021 


0017 


0009 


0002 


0000 


0000 


0002 


0060 


0004 


0009 


0017 


0023 


0020 


0008 


0007 


0002 


0001 


0000 


0061 


0003 


0006 


0019 


0015 


0012 


0008 


0002 


0000 


0001: 


0001 


0062 


0002 


0005 


0007 


0018 


0010 


0003 


0007 


0000 


0001 


0002 


0063 


0001 


0006 


0009 


0015 


0010 


0003 


0004 


0000 


0001 


0000 



Sample Output 
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DATA TAKING 

Data is accepted by the program when two conditions are met: 

] . The data taking routine is enabled by the command X). 

2. The program interrupt is turned on by one of the display commands. 

Data taking is stopped by one of three conditions: 

1 . A command is given that either disables the data taking routine or turns 
off the program interrupt i.e.: XJ, NJ, t^AxxJ, hAxxxxJ, ZJ, V^d, 
PJ, and RJ. 

2. The clock receives a preset number of counts. 

3. A register receives 4096 counts. This last condition will cause the 
data taking routine to be disabled and the coordinates of the overflowed 
matrix element will be printed followed by the word "FULL." 

CLOCK 

The clock is a double precision counter that is reset to the values found in CLCONl (0276) 
and in CLCON2 (0277). CLCONl is the low order clock constant and CLCON2 Is the high 
order clock constant. These constants are the double-precision 2's complement of the number 
of clock pulses to be counted. The command that enables the data taking routine also resets 
the clock to these values (the command )0). During data taking, the clock is indexed each 
time the analog-to-digital converter generates a clock pulse. The number of clock pulses is 
proportional to the "live time" of the system. When the clock has received the maximum 
number of counts as determined by the clock constants, the message "CLOCK FULL" is printed 
and the data taking routine is disabled. The display continues. 

PROGRAM DESCRIPTION 

The general layout of the Two-Dimensional Display program is very similar to that of the One- 
Dimensional program. The program interrupts are handled in a similar manner, as are keyboard 
commands. This program is constructed in a modular form that allows routines to be easily 
removed. The entry point to each routine to be removed is merely changed to (JMP @ ERROR). 
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Some care must be exercised here since some routines call other routines for operating param- 
eters. SLICE, CONTUR, and ISO all depend on HMARK and VMARK which specify, respec- 
tively, the position of the horizontal marker and the vertical marker. These markers are 
changed by the commands M, V, H. Thus, VERT and HORZ could readily be removed; but If 
MARK were removed, the display routines would have to be altered. In addition, WRITE uses 
parameters that are set up by the routine SLICE. Thus, SLICE can be removed only if WRITE 
is removed or altered. The PUNCH routines are entirely independent using only certain 
"universal" constants found on page zero. 

There are four registers on page zero that control all displays, CONSTl, CONST2, CONST3, 
and CONST4, which represent respectively: 

1. Number of elements in Y direction 

2. Number of elements in X direction 

3. (Address X, - Address X., , ) for constant Y 

I i+i 

4. (Address Y. - Address Y.^, ) for constant X. 

These four constants are initialized when the program is started at location 0200 (octal). The 
initial values depend on the contents of XSIZE and YSIZE. The contents of these registers 
(absolute address: 0167, 0170 respectively) are set by the operator to correspond to the par- 
ticular experiment configuration. In order for the displays to represent data from the analog- 
to-digital converter, XSIZE must be an integral power of 2. In other words, the X coordinate 
corresponds to the rightmost bits from the analog-to-digital converter. Since storage space is 
limited to 6200g positions (3200,^), words from the converter that are larger than this value 
are rejected. Matrix reversal is accomplished by Interchanging CONSTl, CONST2, and 
CONST3, CONST4. In addition, CONST5, CONST6, are interchanged in order to keep 
track of the current orientation of the matrix. 

There are three other registers that control the displays. PLUS7 and PLUS4 contain, respec- 
tively, the X increase on the Isometric display and the Y Increase on the Isometric display. 
For matrix sizes other than the one shown in the accompanying photographs, the values should 
be changed. Their absolute addresses are, respectively, 0171 , 0172. The register PLUSX 
(absolute address = 0173) determines the spacing between points on the SLICE and CONTUR 
displays. 
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1024-CHANNEL SPECTRA 

These views show markers and expansion capabilities. The small markers are at 64-channel 
intervals. The large markers can be set anywhere to single out regions for expansion, in 
the upper photos, the full-scale value is 2048 counts; below, 4096 counts. 
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ISOMETRIC DISPLAYS 

Above are two normal views of a 50 x 64 data matrix, a full-scale value of 2048 counts at 
the left and 4096 counts at the right. The third reverses the 4096-count view, making vis- 
ible the areas masked behind ridges and peaks in the original. 
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CONTOURS AND SLICES 

The three photos above show (from the left) an integral contour display of channels contain- 
ing 320 or more counts, a differential contour display of channels containing 320 to 500 
counts, and a differential contour display of channels containing 500 to 800 counts. Below 
are sectional views taken along the markers visible as straight lines in the contour displays. 
At the left are slices along the horizontal marker (top) and vertical marker. At the right 
are successive slices starting along the horizontal marker and moving toward the x-axis. 
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READ: 



Page Zero Routines 

Read one character from the keyboard and print the same character. If the 
character is a rubout (377), return to BEGIN (0217). This rings the bell 
and starts the command search over again. If the character typed is not a 
rubout, the subroutine exists with C(AC) = and with the character typed 
in register HOLD! (0104). Both the keyboard flag and the teleprinter flag 
are cleared. 



INTER: 



OTHER: 



CONTIN: 



TTINTR: 



PRNTIR: 



TWSWIT: 



The same as for the One-Dimensional program with the exception that the 
address of the register to be incremented is determined by the contents of 
ORIGIN, the starting address of the data region. If the selected register 
is outside of the data matrix, it is ignored. 

Clears the teleprinter flag and tests for the keyboard flag. If found, the 
program Jumps to CMMAND by means of RETURN. If not, control returns 
to the interrupted program by means of CONTIN. 

Restores the accumulator from SAVE AC, turns on the program interrupt, and 
returns to the interrupted program . 

Used when the data taking routine is disabled. This is accomplished by 
putting (JMP TTINTR) in location 0002. TTINTR starts by clearing the ADC 
flag and testing for the teleprinter flag. If found, sequence returns to the 
program which originated the type command. If the interrupt was not caused 
by the teleprinter, the keyboard flag is tested by OTHER+1 . 

Is used for printing with the Interrupt turned on. It Initiates printing (TLS), 
clears the AC, and returns to the display program by means of CONTIN. 

The contents of this location determine whether or not the TWINKLE display 
is on. If C(TWSWIT) = NOP, control transfers to TWKLE. If C(TWSWIT) = 
SKP, control transfers to ADC. 
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Page One Routines 

When the program is started at location 0200, the six constants, CONSTl, CONST2, CONST3, 
CONST4, CONST5, CONST6, are initialized, a carriage return, line feed combination is 
printed, and the bell is rung. Control advanced to CMMAND which searches for and interprets 
legal commands. 



TABLE2: 
ENABLE: 



CLCONl, 
CLCON2: 



SLICE: 



This is a table of the legal commands 

Accepts a carriage return, puts instruction (SNC = 6701) in location 0002, 
resets the clock, prints a line feed, and returns to CMMAND. 

These are the low order and high order clock constants respectively (absolute 
addresses = 0276, 0277). These are set by the operator to the double pre- 
cision 2's complement of the number of clock pulses to be accepted. 

This is the slice routine. It accepts a character, (H or V) and displays the 
selected slice. The selected slice, i.e. horizontal or vertical, is with re- 
spect to the scope, not with respect to the current orientation of the matrix. 
Slice sets up some parameters which are used by WRITE. The contents of 
SSWIT determine whether the slice is horizontal or vertical. C(YORG) = 
starting address of slice location. C(DELTAY) = difference in addresses 
between successive slice elements. 
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CONTUR: 
MARK: 



CLEAR: 
PRINT!: 



Page Two Routines 
This is the main contour display with markers. 

The routine to set the horizontal and vertical markers. Calls the routine 
RDIN after setting it for a 2-digit input and conversion. Control returns 
toCMMAND. 

Zeros the data region. Control returns to CMMAND. 

Used for printing with interrupt turned off. 
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ISO: 



Page Three Routines 

The entry point of the isometric display. Horizontal and vertical markers 

are displayed with increased intensity. For scopes without the intensity option, 

BRH, BRL= NOP. 



REVRSE: 
TWINKL: 



Interchanges, by pairs, all constants controlling matrix orientation. 

Entry point for the twinkle routine. Accepts a carriage return, types a line 
feed, sets TWSWIT for twinkle, turns interrupt on and waits for an ADC 
interrupt. When this occurs, control goes to TWKLE. Here, the word from 
the ADC is broken down Into X and Y coordinates, and the corresponding 
point on the scope is intensified. If the word from the ADC is not too large, 
the appropriate core location Is indexed. 



LNEND: 



Types a carriage return and a line feed. 
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Page Four Routines 

WRITE: The entry point for the printout routine. It looks at the parameters set up 

by SLICE, disables the data-taking routine, and proceeds to print the slice(s) 
selected. WRITE calls PNTDEC to convert the binary number in the AC to 
a decimal number. 

RDIN: Converts the number of digits as specified by the C(AC) to a binary and 

exits with C(AC) = binary equivalent of decimal number typed In. 

TABLE6: Is used for overflow printing. 
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PNTDEC: 



FULL: 



CKFULL: 



PUNCH: 

BINPCH: 
PCHECK: 



Page Five Routines 

Converts the binary number In the AC to a 4-digit decimal number and 
prints it. 

Is entered when a register has overflovyed. It disables the data taking 
routine. When entered, C(HOLDl) = address of overflowed register. FULL 
converts this address to channel coordinates and prints this. It then prints 
the word "FULL." 

Is entered when the clock has received the maximum number of counts. It 
disables the data taking routine, prints the word "CLOCK FULL," and re- 
turns to the display program that was on . 

Punches the entire data matrix in BIN format. It calls LEADER to punch 
leader-trailer and BINPCH to punch a 12-bit word. 

Punches d 12-bit word as two 6-bit words on tape and calls PCHECK. 

Calculates the checksum which is the last word placed on the tape before 
the trailer code is punched. 
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Page Six Routines 



TABLE4: 
TABLEl: 

VERT: 

HORZ: 

DSABLE: 



Used by PNTDEC 



Used by CMMAND. If routines are removed, this can be moved anyplace 
in core as can all of the routines on this page. 

Indexes vertical marker and returns to interrupted program. 

Indexes horizontal marker and returns to interrupted program. 

Disables the data to ki rig routine. 
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MULTIPARAMETER DISPLAY PROGRAM LISTING 



ORGZ 2 
inter: 



TWSWIT: 



CONTIN: 



INDEXl 
INDEX2 
AOC: 



SFTCLK 



TTINTR 



OTHER 



PRNTIR: 



SNC 

JMP 

ASE 

JMP 

DCA 

ARR 

NOP 

JMP 

JMP 

TAD 

ION 

JMP 





CLL 

TAD 

DCA 

TAD 

TAD 

szl: 

JMP 

ISZ 

JMP 

JMP 

ACE 

ISi 

JMP 

ISZ 

JMP 

JMP 

ACE 

TSE 

JMP 

DCA 

TCE 

JMP 

TCE 

KSE 

JMP 

JMP 



TLS 

CLA 



SETCLK 

OTHER 
SAVEAC 



e>TWNKLE 

ADC 

SAVEAC 



ORIGIN 

HOLDl 

HOLDl 

OVRCON 

CLA 

CONTIN 

e>HOLDl 

CONTIN 

C-i>OVRELO 

CLOCKl 

CONTIN+1 

CL0CK2 

CONTIN+1 

e>CLKEUL 



OTHER+1 
SAVEAC 

PPRNTIR 



CONTIN+1 
eiiRETURN 



.OR JMP TTINTR 
, IS IT ADC? 



.SWITCH TO DETERMINE IE TWINKLE 
.LOCATION INTER 
. IS SWITCH TO 
.DETERMINE STATE 
.OE DATA HANDLING 



. INPUT TOO LARGE? 

,YES 

.NO OVERELOW? 

.NO 

.YES 

.CLEAR ELAG 

.INDEX CLOCK DOUBLE PRECISION 

.CLOCK EULL? 
.NO 
.YES 

.CLEAR ELAG 
.TELETYPE? 
.NO 
.YES 

.RETURN TO PRINTING ROUTINE 

.KEYBOARD 

.NO 

.YES - GET COMMAND 
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MULTIPARAMETER DISPLAY PROGRAM LISTING (continued) 





JMP CONTIN 




read: 




CLA 

KSF 

JMP »-l 

KRB 

TLS 

TSF 

JMP «-l 

TCF 

DCA HOLDi 

TAD HOLOl 


,READ KEYBOARD 




tao mrbout 


, IS CHARACTER A RUBOUT? 




SNAICLA 






JMP C^ERROR 


.YES 




JMP @READ 


,N0 


MRBOUT 


7401 




RETURN 


CMMAND 
CMMAND-2 




HMARK: 







VMARK: 







MINUS4 


7774 




MINUS2 


7776 




HOLDi: 







HOLO2: 







COUNTl 







C0UNT2 







C0UNT3 







C0UNT4 







C0UNT5 


^ 




XCOUNT 







YCOUNT 







YORG: 







DELTAY 


• 




deltax 


: 




CONSTl 


: 7716 




C0NST2 


7700 




C0NST3 


0001 




C0NST4 


0100 




C0NST5 


0315 




C0NST6 


0306 




ORIGIN 


1432 




XAXIS: 







YAXIS: 







off: 


JMP TTINTR 




on: 


SNC 


,SKIP IF NOT CLOCK 6701 


NOPERT 


7000 




skip: 


7410 
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MULTIPARAMETER DISPLAY PROGRAM LISTING (continued) 



error: 

LNFFED: 

CARRTN: 

minor: 

CLOnKi: 

CL0CK2: 

MASK4: 

OVRFLO; 

clkful; 
twnkle; 
ovrcon; 

MOVFX: 

MOVEY: 

CLcon: 

PRODCT: 

SAVEAC: 

input: 

PRINTl 

AORSCl 

ADRSC2 

A0RSC4 

A0RSC6 

A0RSC7; 

PRINT4 

PRM: 

PRF: 

XSIZE: 

YSI^f: 

PLUS?: 
PLUS4: 

PLUSX: 
MASK6: 
MASK?: 
LNENO: 
PLUSIP 



BEGIN 
021? 
»215 
7563 



0P!17 

FULL 

CKFULL 

TWKLE 

0146 





1600 





ROIN 

PRNTl 

TABLEl 

TARLE2-1 

HMARK-1 

TABLE6+4 

TABLE6-1 

PNTOFC 

0315 

0306 

0100 

0062 

? 
4 

0010 

0077 

7700 

LINEND 

0012 



X-DIMENSION 

Y-DIMENSION 

(XSIZE) (YSIZE) MUST BE LESS THAN 6200 OCTAL 

INCREASE IN X ON ISOMETRIC 

INCREASE IN Y ON ISOMETRIC 

THESE DETERMINE SLOPE OF ISOMETRIC BASE 

SPACING CONSTANT FOR SLICE. CONTUR 

MASKING CONSTANTS 

FOR TWINKLE DISPLAY 
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MULTIPARAMETER DISPLAY PROGRAM LISTING (continued) 



ORG 200 



KCC 


, INITIALIZE DISPLAY PARAMETERS 


. TAD XSIZE 




DCA C0NST4 




lAC 




DCA C0NST3 




TAD XSI2E 




CMAIIAC 




DCA C0NST2 




TAD YSI2E 




cma: IAC 




DCA CONSTl 




TAD PRF 




DCA C0NST5 




TAD PRM 




DCA C0NST6 




begin: CLA 




TAD BELL 




JMS g>PRINTl 




TAD CARRTN 




JMS e>PRINTl 




TAD LNFEED 




JMS e>PRINTl 




CMMAND: JMS READ 


, DECODE COMMAND 


TAD ADRSC2 




DCA INOEXl 




TAD TABLE2+3 




OCA COUNTl 




TAD ADHSCl 




DCA H0LD2 




TAD HOLDl 




TAD ^INDEXl 




SNA 




JMP .+5 




ISZ H0LD2 




ISZ COUNTl 




JMP .-5 




JMP BEGIN 


.CHARACTER NOT ON LIST 


TAD PH0LD2 




DCA H0LD2 




JMP C»)H0L02 
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MULTIPARAMETER DISPLAY PROGRAM LISTING (conHnued) 



TABLE"?: 745? 
0016 
0005 
7763 
7766 
0021 
7766 
0006 
7777 
7766 
0001 
0003 
000? 

RELL: 0?07 

ENABLE: JMS READ .ENABLE DATA TAKING ROUTINE 

TAD ON , INTERRUPT IS GEE 

OCA INTER ,SET CLOCK 

TAD CLCONl 

OCA CLOCKl 

TAD CLC0N2 

DCA CLOCK? 

JhTP C«>RETURN + 1 
CLCONi: 0000 ,LOW ORDER CLOCK CONSTANT 

CLC0N2: 0000 .HIGH ORDER CLOCK CONSTANT 

slice: JMS READ .THIS WHOLE ROUTINE MAY BE REMOVED 

TAD HOLDl ,IF WRITE IS REMOVED. WRITE USES 

TAD TABLE? .SLICE TO DETERMINE REGION OF PRINT OUT 

SZAICLA 

JMP -^^ .REPLACE ROUTINE WITH SLICE: JMP (SERROR 

TAD NOPERT 
SKP 

TAD SKIP 
DCA SSWIT 
JMS READ 
TAD LNEEED 
JMS C-)PRINT1 
SSWIT: nop .THE WRITE ROUTINE LOOKS AT THIS 

JMP VSLICE .REGISTER TO SEE IE SLICE IS HORIHONTAL 

TAD HMARK ,0R VERTICAL 

CMA 

DCA C0UNT2 
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MULTIPARAMETER DISPLAY PROGRAM LISTING (continued) 



TAD 


CGNST4 


DCA 


YAXIS 


TAD 


C0NST2 


DCA 


XCOUNT 


TAD 


C0NST3 


OCA 


DELTAY 


JMP 


SSTART 


VSLICE: tad 


VM.ARK 


CMA 




DCA 


C0UNT2 


TAD 


const:^ 


DCA 


YAXIS 


TAD 


CONSTl 


DCA 


XCOUNT 


TAD 


C0NST4 


DCA 


DELTAY 


SSTART: ISi 


C0UNT2 


SKP 




JMP 


.+3 


TAD 


YAXIS 


JMP 


.-4 


TAD 


ORIGIN 


DCA 


YAXIS 


TAD 


YAXIS 


DCA 


YORG 


DCA 


XAXIS 


ION 




BRL 




=^LOTS: TAD 


XAXIS 


DXL 




TAD 


PLUSX 


DCA 


XAXIS 


DYS 




TAD 


e-YAXlS 


cll: 


RAR 


CLL! 


RTR 


OYS 




CLA 




Tad 


YAXIS 


TAD 


DELTAY 


DCA 


YAXIS 


ISZ 


XCOUNT 


JMP 


PLOTS 


JMP 


SSWIT 



FOR SCOPE WITH INTENSITY OPTION 



END OF SLICE ROUTINE 
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MULTIPARAMETER DISPLAY PROGRAM LISTING (continued) 



ORG 400 




contur: Tad 


A0RSC3 


DCA 


INOEXl 


JMS 


READ 


TAD 


HOLDl 


TAD 


MINCR 


SNA! 


CLA 


JMP 


.+5 


TAD 


MINUS4 


JMS 


«i>INPUT 


DCA 


PINOEXl 


JMP 


.-10 


TAD 


LNFEEO 


JMS 


giPRINTl 


TAD 


HLEVEL 


CMAt 


lAC 


TAD 


LLEVEL 


DCA 


MHIGH 


TAD 


LLEVEL 


CM A 




DCA 


HLOW 


BRL 




CSTART: TAD 


vmark 


cma: 


1 lAC 


DCA 


C0UNT4 


ION 




TAD 


ORIGIN 


DCA 


YORG 


TAD 


C0NST2 


DCA 


XCOUNT 


DCA 


MOVEX 


CGOi: TAD 


CONSTl 


DCA 


YCOUNT 


TAD 


YORG 


DCA 


YAXIS 


TAD 


HMARK 


SZA 




CMA 




DCA 


C0UNT3 


DCA 


MOVEY 


TAD 


MOVEX 


DXL 




SNA 


ICLA 


JMP 


VMARKR 


IS2 


C0UNT4 


SKP 




JMP 


VMARKR 


DYS 




TAD 


NOPERT 


DCA 


CSWIT 



CONTUR CAN BE REMOVED 
CHANGE TO CONTUR: JMP TERROR 



GET LEVELS 



TOR SCOPE WITH INTENSITY OPTION 



X = 0? 

YES PUT IN AXIS 
NO-IS X AT MARKER? 
-NO 
YES 
PUT IN Y=0 
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MULTIPARAMETER DISPLAY PROGRAM LISTING (continued) 



CG02: 


ISZ C0UNT3 

SKP 


,Y AT MARKER 




JMP CG03 


,YES INTENSIFY 




CLLl lAC 






TAD PYAXIS 






TAD MLOW 






SNL 






JMP OUT 






TAD MHIGH 






SNLICLA 


, INTENSIFY THIS POINT? 




JMP OUT 


,N0 


CG03: 


TAD MOVEY 
DYS 


,YES 


out: 


CLA 

ISZ YCOUNT 

SKP 

JMP CSTOP 

TAD MOVEY 






TAD PLUSX 


, PLUSX DETERMINES SPACING 




DCA MOVEY 






TAD YAXIS 






TAD C0NST4 






DCA YAXIS 




CSWIT: 


NOP 

JMP CG02 

JMP CG03 




VMARKR: 


TAD SKIP 
DCA CSWIT 
JMP CG03 




CSTOP: 


ISZ XCOUNT 
SKP 


.SCANNED ALL X 




JMP CSTART 


.YES 




TAD MOVEX 


,N0 SET UP FOR NEXT X 




TAD PLUSX 






DCA MOVEX 






TAD YORG 






TAD C0IMST3 






DCA YORG 






JMP CGOl 


.END OF CONTUR ROUTINE 


mark: 


TAD ADRSC4 
DCA INDEXl 
JMS READ 
TAD HOLDl 
TAD MINCR 
SNAICLA 
JMP .+5 
TAD MINUS2 
JMS ^INPUT 
DCA @IN0EX1 
JMP .-10 
JMP eiRETURN + 1 


.GET MARKERS 



BETWEEN POINTS 
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MULTIPARAMETER DISPLAY PROGRAM LISTING (continued) 



ADRSC3: 

MLOW: 

MHIGH: 



LLEVEL- 







clear: 



JMS 
TAD 
DCA 
CMA 
TAD 
DCA 
DCA 
ISZ 
JMP 
JMP 



READ 

CLCON 

COUNTl 

ORIGIN 

INOEXl 

i^INDEXl 

COUNTl 

.-2 

esRETURN + l 



,THIS 
,DATA 



ROUTINE 
REGION 



CLEARS THE 



PRNTl 



LLEVEL: 

hlevel; 





TLS 
TSF 
JMP 
TCF 
CLA 
JMP 




-1 



(?PRNT.l 
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MULTIPARAMETER DISPLAY PROGRAM LISTING (continued) 



ORG 600 




ISO: 


JMS READ 




TAD SKIP 




DCA TWSWIT 




TAD LNFEEO 




JMS (aPRINTl 


ISOGOI: 


TAO ORIGIN! 




DCA YORG 




CLA'OSR 




s?a:cla 




TAD PLUS12 




TAD NOPERT 




DCA ISWIT2 




OCA MOVEX 




DCA MOVEY 




DCA XAXIS 




TAD COMSTl 




DCA YCOUNT 




ION 




TAD HMARK 




CMA 




DCA C0UNT3 


IS0G02: 


TAD YORG 




DCA YAXIS 




TAD C0NST2 




DCA XCOUNT 




TAD VMARK 




CMA 




DCA C0UNT4 




ISZ C0UNT3 




JMP .+3 




TAD NOPERT 




SKP 




TAD SKIP3 




DCA ISWIT 


IS0G03: 


ISZ C0UNT4 


ISWIJ: 


JMP lSWIT+3 




BRH 




SKP 




BRL 




TAD XAXIS 




DXL 




TAD PLUS7 




DCA XAXIS 




TAD laYAXIS 




CLLIRAR 



SET SWITCH FOR ISO 
THIS IS THE ONLY PLACE 
WHERE THIS SWITCH IS SET 



,SET UP SCALE 
IF C(SR)=0,C( lSl«IIT2)=N0P 

. IF C(SR)=0,C( ISWIT2)=HTR 



FOR SCOPE WITH INTENSITY OPTION 
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MULTIPARAMETER DISPLAY PROGRAM LISTING (continued) 



ISWIT2: RTR 




TAD 


MOVEY 


DYS 




CLA 




TAD 


YAXIS 


TAD 


C0NST3 


DCA 


YAXIS 


ISZ 


XCOUNT 


JMP 


IS0G03 


TAD 


MOVEY 


T AD 


PLUS4 


DCA 


MOVEY 


TAD 


MOVEX 


TAD 


PLUS? 


DCA 


MOVEX 


TAD 


MOVEX 


DCA 


XAXIS 


TAD 


YORG 


TAD 


C0NST4 


DCA 


YORG 


ISI 


YCOUNT 


JMP 


IS0G02 


JMP 


ISOGOI 


SKIP3: JMP 


lSWlT+3 


REVRSE: JMS 


READ 


TAD 


CONSTl 


DCA 


HOLDl 


TAD 


C0NST2 


OCA 


CONSTl. 


TAD 


HOLOl 


DCA 


C0NST2 


TAD 


C0NST3 


DCA 


HOLDl 


TAD 


C0NST4 


DCA 


C0NST3 


TAD 


HOLOl 


DCA 


C0NST4 


TAD 


C0NST5 


DCA 


HOLDl 


TAD 


C0NST6 


DCA 


C0NST5 


TAD 


HOLOl 


DCA 


C0NST6 


JMP 


eaRETURN + 1 



, REVRSE MAY BE REMOVED 

, CHANGE TO REVRSE: JMP (TERROR 
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MULTIPARAMETER DISPLAY PROGRAM LISTING (conHnued) 



TWINKL 



TWKLE: DCA HOLDl ,GET X 



LINEND 



JMS READ 




TAD LNFEED 




JMS esPRINTl 




TAD NOPERT 




DCA TWSWIT 




ION 




NOP 




JMP .-1 




DCA HOLDl 




TAD MASK6 




AND HOLDl 




CLLIRAL 




RTL 




DXL 




CLAICLL 


,GET Y 


TAD MASK? 




AND HOLDl 




CLL'RAR 




RTR 




NOP 


, SPACE r 


DYS 


.USING D 


CLAICLL 




TAD HOLDl 




TAD ORIGIN 




DCA HOLDl 




TAD HOLDl 




TAD OVRCON 




S2l:cla 


,IS WORD 


JMP CONTlN+1 


,YES 


ISZ g-HOLDl 




JMP CONTlN+1 


,N0 


JMP (aOVRFLO 



TAD CARRTN 


.YES 




JMS PRNTIR 




TAD LNFEEO 




JMS PRNTIR 




JMP e>LINEND 





SET TWINKLE SWITCH 

RESET ONLY BY ISOMETRIC ROUTINE 



FOR ADDITIONAL ROTATES WHEN 
DIFFERENT EXPER I MENT „ CONF I CURAT I ONS 



TOO LARGE FOR ACCEPTANCE 
NO-OVERFLOW? 
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MULTIPARAMETER DISPLAY PROGRAM LISTING (continued) 



ORG 1000 

write: jms read ,the entire write routine 

,may be removed 

TO write: JMP TERROR 



IF write is REMOVED SLICE 
MAY BE REMOVED 



WHORz? 



WSTART; 



JMS READ 




TAD SCON 




DCA INTER-1 


.CHANGE 


TAD OFF 




DCA INTER 




TAD HOLDl 




AND MASK4 




SNA 




TAD PLUS12 




cma; IAC 




DCA HOLDl 




JMS t«LNEND 




JMS SPACES 




JMS SPACES 




TAD SKIP 




cma: IAC 




TAD PSCON 




SNAICLA 




JMP WH0R2 




TAD VMARK 




DCA YCOUNT 




TAD CONST 3 




DCA DELTAX 




TAD C0NST5 




JMS PRNTIR 




TAD C0NST6 




DCA MOVEY 




TAD CONSTl 




DCA MOVEX 




JMP WSTART 




TAD HMARK 




DCA YCOUNT 




TAD C0NST4 




DCA DELTAX 




TAD C0NST6 




JMS PRNTIR 




TAD C0NST5 




DCA MOVEY 




TAD C0NST2 




DCA MOVEX 




TAD EQUAL 




JMS PRNTIR 




TAD HOLDl 




DCA COUNTl 




TAD YCOUNT 




JMS @PRINT4 




ISZ COUNTl 




SKP 




JMP WLAST 




TAD COMMA 




JMS PRNTIR 
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MULTIPARAMETER DISPLAY PROGRAM LISTING (continued) 



wlast 



AGAIN 



SPACES 



TAD SPACE 




JMS PRNTIR 




ISZ YCOUNT 




JMP .-12 




JMS e>LNENO 




TAD MOVEY 




JMS PRNTIR 




TAD EQUAL 




JMS PRNTIR 




JMS PLNEND 




TAD YORG 




OCA MOVEY 




DCA YCOUNT 




TAD YCOUNT 




JMS @PRINT4 




JMS SPACES 




TAD HOLDl 




DCA COUNTl 




TAD MOVEY 




DCA PRODCT 




TAD (?PRODCT 




JMS @PRINT4 




ISZ COUNTl 




SKP 




JMP .+6 




TAD PRODCT 




TAD DELTAX 




DCA PRODCT 




JMS SPACES 




JMP .-11 




JMS PLNEND 




ISZ MOVEX 




SKP 




JMP CONTIN 




TAD MOVEY 




TAD DELTAY 




DCA MOVEY 




ISZ YCOUNT 




JMP AGAIN 



TAD SPACE 






JMS PRNTIR 




TAD SPACE 




JMS PRNTIR 




JMP e>SPACES 




SSWIT 


.POINTER 



scon: SSWIT .POINTER TO SWITCH IN SLICE ROUTINE 
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MULTIPARAMETER DISPLAY PROGRAM LISTING (continued) 



comma: 


0254 


equal: 


0275 


ROIN: 







DCA COUNTl 




nCA PRODCT 




JMS READ 




TAD HOLDl 




AND MASK4 




TAD PRODCT 




IS2 COUNTl 




SKP 




JMP C«»RDIN 




CLLIRAL 




DCA PRODCT 




TAD PRODCT 




RTL 




TAD PRODCT 




OCA PRODCT 




JMP R0IN + v3 


TABLE6: 


303 




314 




317 




303 




313 


space: 


240 




306 




325 




314 




314 








CONVERT DECIMAL TO BINARY 



, TABLE FOR OVERFLOW PRINT OUTS 
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MULTIPARAMETER DISPLAY PROGRAM LISTING (continued) 



ORG 1200 



PNTDEC: 




DCA 


H0LD2 


TAD 


MINUS4 


DCA 


COUNTS 


TAD 


ADRSC8 


DCA 


TEST 


here: TAD 


2ER0 


DCA 


CHAR- 


TAD 


H0LD2 


CLL 




TAD 


^TEST 


SNL 




JMP 


.+3 


IS2 


CHAR 


JMP 


.-5 


DCA 


H0LD2 


TAD 


laTEST 


cma: 


! lAC 


TAD 


H0LD2 


DCA 


H0LD2 


TAD 


CHAR 


JMS 


PRNTIR 


ISZ 


TEST 


IS? 


C0UNT5 


JMP 


HERE 


JMP 


1?>PNTDEC 


zero: 0260 


A0RSC8: TABLE4 


test: 




full: tad 


OFF 


DCA 


INTER 


TAD 


ORIGIN 


cma: 


I AC 


TAD 


HOLDl 


DCA 


HOLDl 


TAD 


PRM 


JMS 


PRNTIR 


TAD 


XSIZE 


CIA 




DCA 


TEST 


DCA 


CHAR 


TAD 


HOLDl 


TAD 


TEST 


SPA 




JMP 


.+3 


ISZ 


CHAR 


JMP 


.-4 


TAD 


XSIZE 


DCA 


HOLDl 


TAD 


CHAR 



CONVERT BINARY TO DECIMAL AND PRINT 



CALCULATE LOCATION OF OVERFLOWED 
, CHANNEL 
,USES THE ROUTINE PNTDEC 
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MULTIPARAMETER DISPLAY PROGRAM LISTING (continued) 



CKFULL 



JMS 

TAD 
JMS 

TAD 
JMS 
TAD 
OCA 
JMP 

DCA 
TAD 
DCA 
TAD 
OCA 
TAD 
SNA 
JMP 
JMS 
JMP 
JMS 
JMP 



PNTOEC 
PRF 

PRNTIR 
HOLDl 

PNTOEC 
A0RSC6 
INDEXl 
.+6 

SAVEAC 

OFF 

INTER 

A0RSC7 

INDEXl 

PINOEXl 

.+3 

PRNTIR 
.-4 

esLNEND 
CONTIN 



.PRINT "FULL" 



, PRINT "CLOCK FULL" 



punch: 



JMS READ 
TAD OFF 



.ENTIRE PUNCH ROUTINE MAY BE REMOVED 
.ALONG WITH PCHECK , LEADER , AND BINPCH 



BINPCH: 



DCA 

TAD 

JMS 

JMS 

CMA 

TAD 

DCA 

DCA 

TAD 

DCA 

TAD 

CLLI 

JMS 

TAD 

CLL 

JMS 

IS? 

JMP 

TAD 

CLL 

JMS 

JMS 

JMP 



DCA 

TAD 

RTR 

RTR 

RTR 



INTER 
LNFEEO 
PRNTIR 
LEADER 

ORIGIN 

INDEX2 

CHAR 

CLCON 

C0UNT5 

ORIGIN 

CML 

BINPCH 

e>IN0EX2 

BINPCH 
C0UNT5 
.-4 
CHAR 

BINPCH 
LEADER 
CONTIN 

HOLDl 
HOLDl 
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MULTIPARAMETER DISPLAY PROGRAM LISTING (continued) 



AND MASK9 
JMS PCHECK 
JMS PRNTIR 
TAD HOLDl 
AND MASK8 
JMS PRNTIR 

JMP (""BINPCH 
PCHECK: 

DCA H0LD2 

TAD H0Ln2 

TAD CHAR 

DCA CHAR 

TAD H0LD2 

JMP PPCHECK 
LEADER: 

TAD COD200 

CMA! lAC 

DCA H0LD2 

TAD COD200 

JMS PRNTIR 

ISZ H0LD2 

JMP .-3 

JMP t<^LEADER 
COD200: 0200 
MASK8: 0077 
MASK9: 0177 
CHAR: 
ORG 1400 
TABLE4: 6030 .CONVERSION TABLE USED BY PNTDEC 

7634 

7766 

7777 

TABLEi: VERT ,THIS TABLE MAY BE RELOCATED 

HORZ 
CONTUR 
PUNCH 
CLEAR 
ISO 
SLICE 
MARK 
OSABLE 
ENABLE 
WRITE 
TWINKL 
REVRSE 
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END 



MULTIPARAMETER DISPLAY PROGRAM LISTING (continued) 



vert: 


ISZ 


VMARK 




JMP 


CONTIN 


HORZ: 


ISZ 


HMARK 




JMP 


CONTIN 


OSABLE: 


JMS 


READ 




TAD 


OFF 




DCA 


INTER 




JMP 


e>RETURN + l 



, INDEX VERTICAL MARKER 

, INDEX HORIZONTAL MARKER 

, DISABLE DATA TAKING ROUTINE 
MAY BE MOVED 
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EQU I P M E NT 
CORPORATION 

MAYNARD, MASSACHUSETTS 



5264 



PRINTED IN U.S.A. 



10-2/65 



